<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#Include Virtual="/expedientes/includes_comun/asp/comun.asp"-->
<%
Dim Id_Actuacion
'Id_Actuacion = Request.ServerVariables("QUERY_STRING")
 Id_Actuacion = Request.QueryString("Actuacion")


Dim Id_Secretaria, Secretaria, Id_Dependencia, Dependencia, Asunto, Fecha, Fojas, Otro, Actuacion

Conectar_gaa

SQL = "SELECT Id_Dependencia, Asunto, FInicio, Iniciador, Id_Secretaria, Clave FROM Actuaciones WHERE Id_Actuacion LIKE '" & Id_Actuacion & "'"
Set Tabla = Conexion.Execute(SQL)
Id_Dependencia = CInt(Tabla("Id_Dependencia"))
Asunto = Tabla("Asunto")
Fecha = Tabla("FInicio")
Otro = Tabla("Iniciador")
Id_Secretaria = Tabla("Id_Secretaria")
Clave = Tabla("Clave")
Tabla.Close

SQL = "SELECT * FROM Pases WHERE Id_Pase = ( SELECT MIN(Id_Pase) FROM Pases WHERE Id_Actuacion LIKE '" & Id_Actuacion & "' )"
Set Tabla = Conexion.Execute(SQL)
Fojas = Tabla("FojasEntrada")
Tabla.Close

Desconectar

Conectar_sol

If Id_Dependencia <> 0 Then
	SQL = "SELECT Nombre FROM Dependencias WHERE Id_Dependencia = " & Id_Dependencia
	Set Tabla = Conexion.Execute(SQL)
	Dependencia = Tabla("Nombre")
	Tabla.Close
Else
	Dependencia = Otro
End If

SQL = "SELECT Nombre FROM Secretarias WHERE Tipo = 'N' AND Id_Secretaria = " & Id_Secretaria
Set Tabla = Conexion.Execute(SQL)
Secretaria = Tabla("Nombre")
Tabla.Close

Desconectar
%>
<!--#include file="caratula.tpl.asp"-->